home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / misc / wclass20.zip / ACTOR1.SCT < prev    next >
Text File  |  1995-01-16  |  1KB  |  45 lines
  1.  /* Getting Started Actor Script
  2.  The purpose of this script is to generate Actor 4.x code.
  3.  Created by Jim Peterson, e-mail 70733.1602@compuserve.com.
  4.  */
  5.  
  6.  inherit ([BASE_CLASS, ] #$CLASS, #(
  7.  [ ATTRIBUTE_NAME DELETE_LAST_SYMBOL, /* type ATTRIBUTE_TYPE */ ]
  8.  [ ASSOCIATION_ONE_NAME DELETE_LAST_SYMBOL, /* class ASSOCIATION_ONE_CLASS */ ]
  9.  [ AGGREGATION_ONE_NAME DELETE_LAST_SYMBOL, /* class AGGREGATION_ONE_CLASS */ ]
  10.  [ ASSOCIATION_MANY_NAME DELETE_LAST_SYMBOL, /* array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of ASSOCIATION_MANY_CLASS */ ]
  11.  [ AGGREGATION_MANY_NAME DELETE_LAST_SYMBOL, /* array LITERAL_SYMBOL[1..10 LITERAL_SYMBOL] of AGGREGATION_MANY_CLASS */ ]
  12.  
  13.    ),2,nil)!!
  14.  
  15.  now(class($CLASS$))!!
  16.  
  17.  Def build ( self [DELETE_LAST_SYMBOL, a$ATTRIBUTE_NAME ] NO_RETURN)
  18.  {
  19.   ^init(new(self)[DELETE_LAST_SYMBOL, a$ATTRIBUTE_NAME ] NO_RETURN);
  20.  }!!
  21.  
  22.  [
  23.  Def OPERATION_NAME (self ACTOR_OPERATION_PARAMETERS NO_RETURN)
  24.  /*
  25.  OPERATION_COMMENT1
  26.  OPERATION_COMMENT2
  27.  OPERATION_COMMENT3
  28.  */
  29.  {
  30.  OPERATION_CODE
  31.  ^self;
  32.  }!!
  33.  ]
  34.  
  35.  now($CLASS$)!!
  36.  
  37.  Def init (self [DELETE_LAST_SYMBOL, a$ATTRIBUTE_NAME ] NO_RETURN)
  38.  {
  39.  [   ATTRIBUTE_NAME := a$ATTRIBUTE_NAME;
  40.  ]
  41.   ^self;
  42.  }!!
  43.  
  44.  
  45.